<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.hc</name>
<id>-1</id>
<cardCount>12</cardCount>
<cardID>4876</cardID>
<listID>2228</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>640</width>
<height>480</height>
</cardSize>
<script>--------------------------------------------------------------------------------------------------------Multicom Publishing Inc.®---------------------------------------------------------------------------------------------------on startUpgo to stack "HOME"end startUpon openStackspinCursorhide menuBarhide titleBarloadPaletteloadTxtcheckPaletteend openStackon closeStackspinCursornoPaintWhitepalette "runMenu", "0,417"if there is a window "navMenu"thennoPaintWhiteclose window "navMenu"end ifend closeStack-----------------------------------------------------------------------on resetSystemPaletteset the cursor to busypicture "SYSTEM_COLORS",resource,rect,false,8set the rect of window "SYSTEM_COLORS" to "639,479,640,480"show window "SYSTEM_COLORS" -- show is needed to reset palette!close window "SYSTEM_COLORS"noPaintWhiteif there is a window "black" then close window "black"end resetSystemPaletteon prepWinpicture "black",resource,rect,false,8 --draws a black screen before showing thumbnailset rect of window "black" to "0,0,640,480"noPaintWhiteshow window "black"end prepWinon prepPlteglobal introSwitchif there is a window "options" then ¬exit prepPltepalette "options","1005,1005"noPaintWhiteset the visible of window "options" to falseset loc of window "options" to "135,100"noPaintWhiteput 0 into introSwitchend prepPlteon openPicture winName -- handle openPicture sent by Picture XCMDglobal gCurrWindowif winName <> "SYSTEM_COLORS" thenput winName into gCurrWindowend ifend openPictureon colorizeHCglobal gOKToColorizeif (gOKToColorize is empty) then pass colorizeHCend colorizeHCon initGlobalsglobal gGlobalsOKif gGlobalsOK is true then exit initGlobalsif LastHilites = "" then put "0,0,0,0,0,0,0" &return &"0"&return&"1" into LastHilitesput true into gGlobalsOKend initGlobals--------------------------Navigational Handlers---------------------------on goNextplay "mouseClick"lock Screengo nextunlock Screenend goNexton goPrevplay "mouseClick"lock Screengo previousunlock Screenend goPrevon goBackplay "mouseClick"lock Screengo to card "Main Menu" --takes you to this stack main menuunlock Screenend goBackon goSolarplay "mouseClick"lock screengo to stack "HOME"unlock screenend goSolaron goEventplay "mouseClick"lock screengo cd "MAIN MENU"unlock screenend goEventon loadPalettenoPaintWhitepalette "navMenu", "0,417"end loadPalette-------------------OPTIONS PALETTE HANDLERS--------------------------------on checkPalettenoPaintWhiteif there is a window "runMenu" then close window "runMenu"end checkPaletteon goOptionsnoPaintWhiteset the visible of window "options" to not the visible of window "options"end goOptionson loadTxtglobal marker, printFieldput "PLANETS:SOLAR:SOLAR.TXT" into markerput "SOLAR" into printFieldend loadTxt---------------------------Glossary Handlers-------------------------------on goGlossnoPaintWhiteif the visible of window "options" = truethenhide window "options"end ifnoPaintWhitelock screengo to cd "GLOSSARY" of stack "HOME"unlock screenend goGloss---------------------------Check Environment Handlers----------------------on cHCinstall-- Check for correct environmentset cursor to busy--if checkEnviron() is not "OK" thengo HomegetHomeInfoexit to HyperCardend ifset cursor to busy--repeat until the lockScreen is falseunlock screenend repeat--end cHCinstallfunction checkEnviron-- The heapspace requirements may vary depending on your stackput MaxDepth() into TheDepthif TheDepth < 4 then errBitDepthif (TheDepth = 1) ¬and (the heapSpace < 2600) then errMemory TheDepth,"1100K"else if (TheDepth = 2) ¬and (the heapSpace < 117200) then errMemory TheDepth,"1200K"else if (TheDepth = 4) ¬and (the heapSpace < 205000) then errMemory TheDepth,"1250K"else if (TheDepth = 8) ¬and (the heapSpace < 384000) then errMemory TheDepth,"1300K"else if (TheDepth = 16) ¬and (the heapSpace < 721000) then errMemory TheDepth,"2400K"else if (TheDepth ≥ 24) ¬and (the heapSpace < 1421000) then errMemory TheDepth,"3000K"else if stackActivate() is not empty thenerrColorreturn "OK"else return "OK"end checkEnvironon checkSystemglobal sysEnvput sysEnvironment() into sysEnvif sysEnv contains "error" thenexit checkSystemend if-- Check for >=68020 processorput word 2 of item 3 of line 1 of sysEnv into cpuProcessorif cpuProcessor = 68000 thenanswer "You will need a 68020 processor or higher to use this stack."else-- Check for system >=6.07put item 2 of sysEnv into sysVersionif char 1 to 4 of sysVersion < 6.07 thenanswer "You will need system 6.0.7 or later to use this stack" ¬"Your system version is " & sysVersion & "."else-- Check for Color QuickDrawput item 5 of line 1 of sysEnv into colorQDif colorQD <> "Color Quick Draw" thenanswer "You will need Color QuickDraw to use this stack."elseend ifend ifend if-- Check Total RAM & Monitor Settingsput MaxDepth() into TheDepthput (totalRam()/1024)/1024 into RAMif RAM < 8 and theDepth > 4 thenbeepanswer "This CD-ROM has been optimized to run with 8 megabytes of" ¬&& "RAM and 8 bit color or greater. To run this CD-ROM with less" ¬&& "memory please refer to the “READ ME FIRST” file."doMenu "Quit HyperCard"end ifend checkSystem----------------------------EXTRA HANDLERS-------------------------This handler was created by Randy Jones--It was made to hilite buttons in conjuction with QTPicton bHilite theButton, width-- hilite a button with a variable-width frame.-- rej 1/23/94----------------put the rect of theButton into temp-- calculate a smaller rect.put quote & item 1 of temp + width & comma & item 2 of temp + width & ¬comma & item 3 of temp - width & comma & item 4 of temp - width & ¬quote into temp2-- set clipping region to exclude the smaller rect.QTPict DiffClip, temp2-- now highlight button - smallrect, leaving frame.set the hilite of theButton to truerepeat until the mouse is up-- do TrackWithin equivalent as long as the mouse is down.-- conditionals may seem redundant but are designed to-- eliminate unnecessary param sets.if the MouseLoc is within temp thenif not the hilite of theButton thenset the hilite of theButton to trueend ifelseif the hilite of theButton thenset the hilite of theButton to falseend ifend ifend repeatwait 4 ticks -- to get a nice flash. Otherwise it may be too quick to see if just tapped.if the hilite of theButton thenset the hilite of theButton to falseend ifQTPict ClipTo, "0,0,2400,2400"end bHiliteon frameHilite -- hilite a clicked button or field, call-- from mouseDown script with no params. Default setup for bHilite.----------------bHilite the target, 2play "mouseClick"end frameHilite----------------------------test handlers-------------------------on xy -- ∆ type "xy" into message box to obtain mouse coordinatesset cursor to crossrepeat until the mouseClickput the mouseLoc && " horz:" & the mouseH && " vert:" & the mouseV -- ∆end repeatend xy</script>
